N11 


LLLLLLLLLLLLLLL 
LLELELLLLLLLLLLL 
LLLELLLLLLLLLLL 


ba 
fe be be 


Ot Ot On Os be be Bas be be Dame be bs bs De Os Ds De bn be bs 
os 


1 onl ane 
oa be ee 
be bs bao 
be be 


**F ILE**1D**CREMAPSEC 


ww rere) 
Vu vw 
Vu vev 
Vv (ere) 
Vu Vu 
Vu Vu 
Vevu Vv 
vw Vu 


VWUYVYVUVYVYVYIUU 
BVBUVVYVYVYYYUYUY 


usu uu 
dud wus 
usu Aas tas us 
wud Mast uu 
usta aud udu 
aks wus wu 
uuu kaa a tus ud 


nw MNWwn 

mn NNN 

nw nw ww 

wm “nw nw 

nn nn own 

own ww nw 

nw mn nn 

mn mn nw 
MMMM nn 
NNN nn 
aaaa 
aaaa 

aa aa 

aa aa 

aa aa 

aa aa 

aa aa 

aa aa 

aaaaaaaa aaaa 

aaaaqaaaaa aaaa 
<«<<<<< «<<< 
<«<<a<<aa «<<< 


ax 
aa 
ca 
ax 
ca 
<a 
<a 
ca 
wv 


VBYVVYVYVUYUYUYYU 
VVYVVYYUUYUUWY 


LLLLLLLLLL 
LLLLLLLLLL 


IBSCREMAPSEC 
able of contents 


a 


= CREATE AND MAP A SECTION 


16-SEP-1984 02:15:27 VAX/VMS Macro v04=00 


Page 


N 3 
LIBSCREMAPSEC = CREATE AND MAP A SECTION SEP=1986 AX/VMS Macro v04-00 p ; 
Oe O08 a et tts a at atta tate a 
LTITLE LIBSCREMAPSEC = CREATE AND MAP A SECTION 
“IOENT WOR O60" 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aeepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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00 

00 3+ 

4 : FACILITY: 

00 > ABSTRACT: 

00 ; 

000 > ENVIRONMENT: 

B38 ; AUTHOR: PETER H. LIPMAN , CREATION DATE: 22-MAY-77 

90 ; MODIFIED BY: 

$0 ; v0207 8LS0125 Benn Schreiber 1-Jan-1982 
00 3 Change module name to [Toke reneneee. and do not invoke 
09 3 $secdef globally. 
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be 000 DECLARATIONS mt ts ri att Sm ay i th tt ee 


; SCRATCHSIZE: 
Bs : OWN STORAGE: 


OOo MNOS 


47 .SBTTL DECLARATIONS 
a3 : INCLUDE FILES: 
1 SATRDEF :FILE ATTRIBUTE BLOCK DEFINITIONS 
i SF ABDEF sFILE ACCESS BLOCK DEFINITION 
SSECDEF SDEFINE SECTION FLA 
99 s SXABDEF SEXTENDED ATTRIBUTE BLOCK DEFINITIONS 
06 § : MACROS 
$00 38 : EQUATED SYMBOLS: 
0000 60 ; 
000 61 ; 
909 6¢ : OFFSETS FROM AP 
$609 64 SOFFSET 4,POSITIVE,<- 
0000 65 INADR ;INPUT ADDRESS RANGE 
0000 436s 6 RETADR,- TRETURN ADDRESS RANGE 
0000 4367 FLAGS,= SSECTION FLAGS 
0000 = 68 GSDNAM, = [GLOBAL SECTION NAME DESCRIPTOR 
0000 69 RELPAG,= PRELATIVE PAGE IN SECTION TO START MAPPING 
0000 70 FILNAM,= FILE NAME DESCRIPTOR 
0000 3s 71 PAGCNT , = MAX PAGE COUNT TO CREATE 
0000 2 VBN :STARTING VIRTUAL BLOCK IN FILE TO CREATE SE 
00007? ACMODE SACCESS MODE OF TION 
9009 a CHANADR- TADDRESS OF CHANNEL TO BE USED/RETURNED 
0004 INADR: 
0008 RETADR 
000C FLAGS: 
0010 GSD 
014 RELPAG 
018 FIL 
O1C PAGCNT 
0020 VBN: 
0024 ACMODE 
0028 CH 
00 76 3 
00 77 : OFFSETS FROM FP 
00 78 ; 
000 79 SOFFSET ar NEGATIVE,<= 
9900 80 SVACMOD : SAVED ACMODE PARAMETER IF PRESENT 
1 Stas ath BLN>,- 
0000 8¢ <SCRATCHSIZE, 0>- etre OF SCRATCH AREA 
0000 
FFFC SVACMODE. 
FFAC : 
F ab 
3099 


So 
ooo 


CHANNEL USED IS RETURNED VIA OPTIONAL PARAMETER, CHANADR. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 
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LIBSCREMAPSEC - CREATE AND MAP A SECTION 16-SEP-1984 02: AX/VMS Macro V04-00 Pa 
be 008 CREATE AND MAP SECTION PEE 1S8t BEi48 8s PORTS eae tl et mans1 om cd) 
§ — .SBTTL CREATE AND MAP SECTION 
0 FUNCTIONAL DESCRIPTION: 
; : THIS ROUTINE PROVIDES A SLIGHTLY SIMPLER INTERFACE TO THE 
93 : CREATE AND MAP SECTION SYSTEM SERVICE. IT'S FUNCTION HOWEVER IS 
3¢ 3; IDENTICAL, I.€. TO CREATE AND MAP A SECTION. 
3 96 ; CALLING SEQUENCE: 
0 38 : CALLG ARGLIST,CREMAPSEC 
33 186 : INPUT PARAMETERS: 
000 103 ; INADR(AP) = ;INPUT ADDRESS RANGE TO MAP 
0000 103: RETADR (AP) 2 SRETURN ADDRESS RANGE 
0000 104: FLAGS (AP) 2 *SECTION CONTROL FLAGS 
0000 105: SDNAM (AP) = : GLOBAL SECTION NAME DESCRIPT 
9000 106 ; RELPAG(AP) = TRELATIVE PAGE IN SECTION TO OF ART MAPPING 
0000 107: FILNAM(AP) = [DESCRIPTOR OF FILE NAME STRING 
0000 108 : PAGCNT (AP) = :SIZE OF SECTION TO CREATE 
0000 109 : VBN(AP) 2 :STARTING VBN OF of itt TO CREATE SECTION FROM 
0000 110; zI1F THE ABOVE 2 PARAMETERS ARE L 
0000 111: ‘THE SECTION STARTS AT VBN 1 OF LENE ele 
0000 118 ; TAND IS THE FILE LENGTH 
0000 (113: PFNC(AP) = [IF PFNMAPPING, IS STARTING PFN TO MAP 
$000 118; Jahre: 
0000 116: ACMODE (AP) = ;OPTIONAL PARAMETER SPECIFYING ACCESS MODE 
0000 (117: CHANADR (AP) - [OPTIONAL PARAMETER SPECIFYING EITHER 
0000 (118: TADDRESS OF CHANNEL TO USE OR ADDRESS 
9000 119 : :TO HOLD RETURNED L AMNEL USED 
0000 121 : IMPLICIT INPUTS: 
00 1 ¢ , 
0000. = 3 NONE 
i443 124; 
0 3 : OUTPUT PARAMETERS: 
00 , : RO = SYSTEM STATUS CODE 
g ; : IMPLICIT OUTPUTS: 
1: 
1 : ; 
134 ; 
! 5 3 
$ ; 
1 § : 
140 ; 
141 ; 
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Lhe 505 CREATE AND MAP SECTIDN aR Pa a a cra ta et 
143 .LIST  MEB 
0000 145 -PSECT _LIBSCODE PIC,SHR,BYTE,RD,EXE,NOWRT 
006¢ 123 JENTRY L IBSCREMAPSEC,, “M<R2,R3,R5,R5,R6> 
02 ¢ 148 BRB STA 
007¢ 4 150 .ENTRY LIBS$_CREMAPSEC “HcR2, R3, Ra, RS,R 
SE ACA DE 6 151 START: HOVA SCRATCHSI E(SPS,S RESERV if SCRATCH STORAGE 
6— 0054 8F 00 3 0 ¢ a 4 : ove #=SCRATCHSIZE; rid; ERO THE SCRATCH STORAGE 
g Di i ; CRPL (ab) SO CKCHODE 1S act ESS MODE PARAMETER PRESENT? 
FC AD x: AC OD 17 155 MOVL SCRODE (AP) SVACMODE(FP) :YES, SAVE et IN A TEMP 
TES oi 1 : 20$: MOVL FLA GS(AP) ,R4 [GET CONTROL FLAGS 
00 «€1 1 BB #SECSV_GBL,R4,40$ ‘BRANCH IF PROCESS SECTION 
2 04 BC 7D 0024 138 MOVQ @INADRTAP).R2~ TSAVE INPUT ADDRESS RANGE 
0 15 [COULD BE OVERWRITTEN BY RETADR IN 
0 160 [AN UNSUCCESSFUL MGBLSC ATTEMPT 
51 ds 00 161 CLRL sR TASSUME NO RELATIVE PAGE OFF. SPECIFIED 
0454 10 €1 OO2A 168 BBC #SECSV_PFNMAP,R4,25$ | :BRANCH IF NOT PFNMAP-ING 
51 14 aC DO 00 16 MOVL _— RELPAGTAP) ,R1 [GET RELATIVE PAGE OFFSET 
00 164 258:  $MGBLSC_S - 
0 165 “INADR=@INADR(AP) ,- ;ADDRESS OF INPUT ADDRESS RANGE 
00 166 RETADR=@RETADR (AP) ,~ SADDRESS OF RETURN ADDRESS RANGE 
00 167 FLAGS=R i SECTION FLAGS 
003 168 ERODE =SVACHODE FP), ACCESS MODE 
00 169 GSDNAM=QGSDNAM(AP),- :ADDRESS OF GLOBAL SECTION NAME 
aie 00 170 RELPAGER1 TRELATIVE PAGE IN SECTION 
00 «oD $0 4 PUSHL #0 
10 BC 7F 0036 PUSHAQ @GSDNAM(AP) 
54 DD 0039 PUSHL R4 
FC AD DD 00 PUSHL SVACMODE(FP) 
08 BC 7F OO03E PUSHAQ #RETADR(AP) 
04 BC 7F 0041 PUSHAQ OINADR (AP) 
00000000'GF 07 FB 0044 CALLS #7,G*SYSSMGBLSC 
03 50 €9 0048 171 BLBC RO, 35$ ;BRANCH ON ERROR MAPPING FILE 
d0Bc 40s 31—s«O4E 1% BRW Ex{T ‘BRANCH IF SUCCESSFUL, ALL DONE 
51 173 35$: LFNOWRT 58 @INADR(AP) ,40$ SUNLESS INPUT RANGE I$ READ ONLY 
046 BC 08 a 9 991 PR OBEW £048, S@INADR(AP)- 
06 8C 52 038 174 mova 5 @INADR(AP) ;RESTORE INPUT ADDRESS RANGE 
OA 6C 01 5¢ 0175 408: CMP (AP) , #<CHANADR/4> :WAS CHANADR SPECIFIED? 
0D 19 O05F 1% BUSS R IF NOT SPECIFIED 
1 #17 IFNORD #4 OCHANA R(AP) ,50$ *CAN THE LOCATION BE READ? 
28 BC 04 90 o¢ 1 PROBER # #4, @CHANADR(AP) 
56 288C D $8 178 MOVL § @CHANADR(AP) ,R6 GET » CHANNEL SPECIFIED BY USER 
mY 6c 17 BNEQ [DON'T OPEN FILE IF CHAN PROVIDED 
55 aC AD DE $ : 50$:  MOVAL FABCFP),RS TADDRESS OF FAB 
 — ; ASSUME FABSB BLN EQ FAB ABSB. BID+1 ;ASSUME THESE ARE ADJACENT 
65 5008 8F OB oe MOVW ABs reine + FABSC_BID>,FABSB_BID(RS) ;SET ID AND SIZE OF FAB 
50° 1B AC D 7? 184 MOVL ft E NARIK yor 7GEf ADDRESS OF FILNAM DESC 
D (1 78 «185 BEQL =—-:« 1008 [BR ON SECTION NOT MAPPED TO A FILE 
0 18 7. 007D «1 : MOV a@FILNA ANCAP) RO [GET SIZE AND ADDRESS OF FILE NAME STRING 
AS 90 0081 1 MOVB RO, FABSB_FNS(RS) :SIZE OF FILE NAME STRING 
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viet tty CRE MAP SECTION eet 82:43:85 YYMSLIB. SRETCREMAPSEC MAR: 1 ds 
f AS | D0 1 MOVL  R1,FABSL_FNACRS) SADDRESS OF FILE NAME STRING 
2 1 BBC asec V_WRT,R4, Os [BRANCH IF NOT MAPPING FOR WRITE 
454 03 1 BBS #SECSV~CRE.R4 60S [COPY ON REF IS STILL READ ONLY 
6 A? 1 1 MOVE #FABSM"PUT.FAB -FAC(RS) “ACCESS FOR WRITING 
00 04 A 4 1 G08: BSS  #FABSV-UFO,FABSL-FOP(RS) ,80$ ;SET USER FILE OPEN 
193 80S: OPEN (R9) [OPEN THE FILE 
5 OF PUSHAL (R5) 
00000000'GF 01 Fe ALLS #$$.TMP1,G*SYSSOPEN 
67 Q E 194 LBC =—saRO eXIT ;BRANCH IF FAILED 
56 OCA 06 195 MOVL  FABSL_STV(RS) R6 [GET CHANNEL FROM FAB 
OA 6C OD 196 CMPL (AP) , BCHANADR/4> :DOES CALLER WANT THE CHANNEL RETURNED? 
19 19 BLSS 1008 'BR IF DOES NOT WANT CHANNEL 
198 IFNOWRT #4,@CHANADR(AP),100$ § :CHECK CHAN ADR CAN BE WRITTEN 
28 BC 04 00 9 PROBEW ' gis @CHANADR CAP) 
8 et 6 D 99 MOVL R6, @CHANADR(AP) ;SET RETURN CHANNEL NUMBER 
654 10 € 00 100$: BBS #SECSV_PFNMAP,R4,110$ :BRANCH IF PFNMAP-ING 
cea S o4 MOVL REL BAGTAP) .RI :GET RELATIVE PAGE TO MAP 
4 11 : BRB 200$ :GO TRY TO CREATE SECTION 
1 D4 03 110$: CLRL Ri 7SET REL PAG AS 
564 04 CLRL = R6 7SET NO FILE TO MAP TO 
5 2008:  $CRMPSC_S - [CREATE AND MAP SECTION 
06 INADR=@INADR(AP) , = SINPUT RANGE DESCRIPTOR 
0 RETADR=@RETADR(AP),- | :RETURN RANGE DESCRIPTOR 
08 FLAGS=R4,- :SECTION FLAGS 
09 ACMODE=SVACMODE(FP),- ;ACCESS MODE OF SECTION 
10 GSDNAM=@GSDNAM(AP),- § :GLOBAL SECTION NAME DESCRIPTOR 
11 RELPAG=R1,- SRELATIVE PAGE IN SECTION TO MAP 
1 CHAN=R6,= :CHANNEL TO FILE 
1 PAGCNT=PAGCNT (AP) , = =NO. OF SECTION PAGES TO CREATE 
14 VBN=VBN(AP) [STARTING VIRTUAL BLOCK IN SECTION 
7E «=7C CcLraie 
20 AC OOD PUSHL VBN(AP) 
1C AC DD PUSHL PAGCNT (AP) 
7E 560 «3C MOVZWL R6,-(SP) 
51 DD PUSHL 1 
00 oD PUSHL #0 
10 BC F PUSHAQ @GSDNAM(AP) 
4 dD PUSHL R4 
FC AD DD PUSHL SVACMODE(FP) 
8 BC 7F PUSHAQ @RETADR(AP) 
etn, PUSHAQ @INADR (AP) 
00000000 ' GF FB OOE ALLS #12,G*SYSSCRMPSC 
DD 15 PUSHL RO ; CRMPSC STATUS CODE 
1B 54 E1 5 1 BBC #SECSV_GBL,R4,EXIT ‘BRANCH IF NOT GLOBAL SECTION 
51° 18 A bg OF 1 MOVL FILNAMTAP).R1 [GET ADR OF FILE NAME DESC 
16 1 OFS 18 BEQL EXIT ‘BR ON NO CHANNEL TO DEASSIGN 
OA 6C D1 OOF 1 CMPL AP) ,#<CHANADR/4> [DOES CALLER WANT THE CHANNEL RETURNED? 
D 18 OOFB 30 BEG ‘BR IF DOES WANT CHANNEL 
OFD 1 DASSGN_S CHAN=R6 [DEASSIGN THE CHANNEL FOR GLOBAL SECTION 
7 6 3C OOF “MOVZWL = R6,-(SP) 
00000000'GF 01 FS CALLS  #1,G*SYSSDASSGN 
0 E : BLBC RO.EXIT ;RETURN DEASSIGN CHANNEL ERROR 
8EDO A 300$: POPL R TRETURN CRMPSC STATUS CODE 
04 p 4 EXIT: RET SAND RETURN TO CALLER 
E 6 END 
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Symbol table Breer abs Bei bai8s FUMCITS Base yee lO mans em cf, 


$$.TMP1 ra j 
$$ . TMP2 = 
$$Ti = 0 
ACMODE 4 
CHANADR 8 
DIR... = FFFFFFFF 
EXIT 00000100 R 02 
FAB FFFFFFA 
FABSB_BID = 
FABSB_BLN = 
FABSB_FAC = 
FABSB_FNS = 
FABSC_BID > 
FABSC_BLN = 
FABSL_FNA = C 
F ABSL_FOP = 000 ; 4 
FABSL_STV : 399 ¢ Tl 
FABSM_PUT = Bee 1 mt 
FABSV_UFO = 00000011 
FILNAR 0000018 
FLAGS asa 
GSDNAM 000001 
aNADR 0000004 
LIBSCREMAPSEC 444 00 RG 8 
LIBS_CREMAPSEC 0000004 RG 0 
PAGCRT 4444 1c 
RELPAG 000014 
TADR 00000008 
VABS.. = FFFFFFAC 
SCRATCHSIZE FFFFFFAC 
CRF = 4444594 
_GBL = 0000000 
SECSV_PFNMAP - 90000) 
WRT = 444 00 
0000006 R 02 
SVACMODE FFFFFFFC 
SYSSCRMPSC teeeenee 6X 
SYSSDASSGN eeeeenee GX 
SYSSMGBLSC eeeennee GX 
SYSSOPEN eeerereer GX 0 
00000020 
treet nese emo awe + 
: ; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 


» ABS . 00000000 < -» 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD wa NOVEC BYTE 
SABS$ FFFFFFFC ¢ -» Q1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
-LIBSCODE OOO0010E ¢ 270.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOURT NOVEC BYTE 
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! Performance indicators ! 


gem r een ne eee eee we ewe eee ene 


Phase Page faults CPU Time Elapsed Time 
Initialization 4 :00:00.1 :00:00.62 
gounese processing 135 :00: 0:88 : 03: 

3 :00:04.94 :00:14,. 
ty table sort 5 :00: 9-3 : : 
Symbol table output :00: i :00: 3 
Psect synopsis output :00:00. 00:00. 
Cross-reference output ° :00:00. 
Assembler run totals 47 4 :00:24.0 


The yorting » (35 Limit wes 1350 pages. 

28075 o beg (55 pages) of virtual memory were used to buffer _the intermediate code. 

There were 20 pages of symbol table , tere as yeceree to hold 373 non-local and 11 Local symbols. 
6 source tinge were read in Pass 1, produci ng, 6 object records in Pass 2. 

6 pages of virtual memory were used to define 23 macros. 
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; Macro Library statistics ! 


eee ee te wee uoaieaneaeenees 


Macro Library name Macros defined 
.$255$D SYS.OBJJLIB.MLB; 1 
$52 33) SDUASBS ES SySLi8 SI AMLET MLB;2 18 
Torts (all Libraries) 2 


590 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/DISA=TRACE/LIS=LIS$: CREMAPSEC/OBJ=O0BJ$:CREMAPSEC MSRC$: CREMAPSEC/UPDATE=(ENHS$: CREMAPSEC) +EXECML$/LIB 
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